home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aat.d64 / 14 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  224 lines
  1. 0 REM  SAVE"@0:14",8
  2. 1 GOTO10
  3. 2 PRINT"-- PRESS ANY KEY --"
  4. 3 GETA$:IFA$=""THEN3
  5. 4 PRINT"[147]      SIX CHESS V3.40 INSTRUCTIONS      "
  6. 5 PRINT"****************************************[145][145]"
  7. 6 B$="  "+B$+"  ":X=LEN(B$)/2:X=20-X
  8. 7 PRINTTAB(X)B$
  9. 9 RETURN
  10. 10 B$="GENERAL":GOSUB4
  11. 20 PRINT" 1) TWO PLAYERS
  12. 25 [153]" 2) TAKE BACK MOST RECENT MOVE
  13. 30 PRINT" 3) START WITH NEW BOARD
  14. 40 [153]" 4) SAVE AND LOAD GAME AT ANY TIME
  15. 45 PRINT" 5) HI-RESOLUTION SCREEN IN COLOR
  16. 50 [153]" 6) JOYSTICK, OR KEYBOARD, USED TO MOVE
  17. 55 PRINT" 7) CHANGE BORDER, BACKGROUND AND
  18. 60 [153]"      CURSOR COLORS
  19. 65 PRINT" 8) ON SCREEN LIST OF LAST 9 MOVES
  20. 70 [153]" 9) OUTPUT TO PRINTER OF ALL MOVES
  21. 75 PRINT"10) CONTINUOUS DISPLAY OF NUMBER OF MEN       LEFT ON BOARD"
  22. 80 PRINT"11) OPTION TO FIND IF EITHER KING IS          IN CHECK
  23. 100 B$[178]"THE BOARD":[141]2
  24. 110 [153]" THE BOARD IS MADE UP OF 91 HEXAGONS    IN 3 COLORS.              "
  25. 115 [153]"                                                                  "
  26. 120 [153]" 30 OF THE HEXAGONS ARE      "
  27. 125 [153]"OF EACH OF TWO OF THE        (null)TAB((null)    "
  28. 130 [153]"COLORS.  THE LAST COLOR    (null)TAB((null)2(null)TAB((null)  "
  29. 135 [153]"HAS, THEREFORE, 31.      (null)TAB((null)3(null)TAB((null)3(null)TAB((null)"
  30. 137 [153]"THIS COLOR WILL BE IN    (null)1(null)TAB((null)1(null)TAB((null)1(null)"
  31. 138 [153]"THE EXACT CENTER OF      (null)TAB((null)2(null)TAB((null)2(null)TAB((null)"
  32. 140 [153]"THE PLAY AREA.           (null)3(null)TAB((null)3(null)TAB((null)3(null)"
  33. 145 [153]"                          TAB((null)1(null)TAB((null)1(null)TAB( "
  34. 150 [153]"                            TAB((null)2(null)TAB(   "
  35. 155 [153]"CLOSE                             TAB(     "
  36. 160 [153]" DISPLAYED IS ONLY A SMALL PORTION OF   THE BOARD, BUT TO SCALE. "
  37. 200 B$[178]"PAWNS":[141]2
  38. 210 [153]" THE PAWNS CAN ONLY MOVE IN THE FORWARD DIRECTION ONE SPACE AT A TIME.
  39. 215 PRINT"THE ONLY EXCEPTION TO THIS IS CAPTURING.
  40. 220 [153]"                             "
  41. 225 [153]" IF THE PAWN STARTS AT       (null)TAB((null)    "
  42. 230 [153]"THE FWAIT, AND IT HAS NOT      (null)TAB((null) (null)TAB((null)  "
  43. 235 [153]"YET BEEN MOVED, THEN IT  (null)TAB((null) (null)TAB((null) (null)TAB((null)"
  44. 237 [153]"MAY GO TO THE 2WAIT.  ALL    (null) (null)TAB((null)2(null)TAB((null) (null)"
  45. 238 [153]"OTHER MOVES MUST BE AS   (null)TAB((null)C(null)TAB((null)C(null)TAB((null)"
  46. 240 [153]"1WAIT.  IF CAPTURING, MOVE   (null) (null)TAB((null)1(null)TAB((null) (null)"
  47. 245 [153]"TO ONE OF THE CWAIT'S.        TAB((null)C(null)TAB((null)C(null)TAB( "
  48. 250 [153]"                            TAB((null)F(null)TAB(   "
  49. 255 [153]"CLOSE                             TAB(     "
  50. 260 [153]" ONCE THE PAWN HAS REACHED THE LAST ROW,IT WILL BECOME A QUEEN";
  51. 270 [153]" AUTOMATICALLY."
  52. 300 B$[178]"BISHOPS":[141]2
  53. 310 [153]" BISHOPS TRAVEL ON THE DIAGONALS KEEPINGTHE ON THE SAME COLOR.
  54. 315 PRINT"
  55. 320 [153]"                             "
  56. 325 [153]" AS IN SQUARE CHESS, THE     (null)TAB((null)    "
  57. 330 [153]"BISHOP TAKES A PIECE       (null)TAB((null) (null)TAB((null)  "
  58. 335 [153]"BY LANDING ON IT WITH    (null)TAB((null)T(null)TAB((null) (null)TAB((null)"
  59. 337 [153]"A VALID MOVE.  JUST      (null) (null)TAB((null) (null)TAB((null) (null)"
  60. 338 [153]"REMEMBER THAT IT MOVES   (null)TAB((null) (null)TAB((null) (null)TAB((null)"
  61. 340 [153]"ALONG THE POINTS OF      (null)F(null)TAB((null)T(null)TAB((null)T(null)"
  62. 345 [153]"THE HEXAGON IT STARTS     TAB((null) (null)TAB((null) (null)TAB( "
  63. 350 [153]"FROM.                       TAB((null) (null)TAB(   "
  64. 355 [153]"CLOSE                             TAB(     "
  65. 360 [153]" MOVES CAN BE FOR MANY HEXAGONS BUT CAN NOT GO THROUGH ANOTHER PIECE.
  66. 400 B$="ROOKS":GOSUB2
  67. 410 PRINT" THE ROOKS MAY MOVE ANY NUMBER OF       HEXAGONS AT ONE TIME BUT MAY
  68. 415 [153]"NOT JUMP OVER ANOTHER PIECE.
  69. 420 PRINT"                             "
  70. 425 PRINT" AGAIN, LAND ON AN           [206][163][205]    "
  71. 430 PRINT"OPPOSING PIECE TO          [206][163][205] [206][163][205]  "
  72. 435 PRINT"CAPTURE IT FROM THE      [206][163][205] [206][163][205]T[206][163][205]"
  73. 437 PRINT"OTHER PLAYER.  THE       [205]T[206][163][205]T[206][163][205] [206]"
  74. 438 PRINT"DIFFERENCE TO THE BISHOP [206][163][205]T[206][163][205] [206][163][205]"
  75. 440 PRINT"IS THAT THE ROOK TRAVELS [205]F[206][163][205] [206][163][205] [206]"
  76. 445 PRINT"ALONG THE FACES OF THE    [163][205]T[206][163][205] [206][163] "
  77. 450 PRINT"HEXAGONS.                   [163][205]T[206][163]
  78. 455 [153]"CLOSE                             TAB(     "
  79. 460 [153]" MOVEMENT MAY BE TO ANY ONE OF THE SHOWNTWAIT'S FROM THE FWAIT.      "
  80. 500 B$[178]"KNIGHTS":[141]2
  81. 510 [153]" THESE ARE THE ONLY PIECE THAT IS       ALLOWED TO JUMP ANOTHER PIECE.
  82. 515 PRINT"
  83. 520 [153]"                             "
  84. 525 [153]" THE KNIGHT'S MOVE IS ALSO   (null)TAB((null)    "
  85. 530 [153]"THE MOST INVOLVED.  IT     (null)TAB((null) (null)TAB((null)  "
  86. 535 [153]"TAKES THE FORM OF A      (null)TAB((null)T(null)TAB((null)T(null)TAB((null)"
  87. 537 [153]"SLIGHTLY BENT 'L'.       (null)T(null)TAB((null) (null)TAB((null)T(null)"
  88. 538 [153]"REMEMBER THE PATTERN     (null)TAB((null) (null)TAB((null) (null)TAB((null)"
  89. 540 [153]"BY 2 AND 1 AWAY  OR      (null) (null)TAB((null) (null)TAB((null) (null)"
  90. 545 [153]"1 AND 2 AWAY. MAYBE THE   TAB((null) (null)TAB((null) (null)TAB( "
  91. 550 [153]"PICTURE SHOWS THIS BETTER.  TAB((null)F(null)TAB(   "
  92. 555 [153]"CLOSE                             TAB(     "
  93. 560 [153]" THE PIECES JUMPED ARE NOT REMOVED FROM THE BOARD, ONLY THE ONE";
  94. 570 [153]" LANDED ON.
  95. 600 B$="QUEENS":GOSUB2
  96. 610 PRINT" THE QUEEN IS CONSIDERED BY MANY TO BE  THE MOST POWERFUL PIECE.
  97. 615 [153]"
  98. 620 PRINT"                             "
  99. 625 PRINT"                       "
  100. 630 PRINT" THIS IS BECAUSE SHE   "
  101. 635 PRINT"MAY MOVE THE SAME AS   "
  102. 637 PRINT"THE BISHOP AND[146] THE   "
  103. 638 PRINT"SAME AS THE ROOK.  I   "
  104. 640 PRINT"WILL NOT SHOW THE      "
  105. 645 PRINT"POSSIBLE MOVES AS IT   "
  106. 650 PRINT"MAY BE MORE CONFUSING  "
  107. 655 PRINT"THAN HELPFULL.         "
  108. 660 PRINT" REFER BACK TO THE BISHOP AND ROOK TO   SEE THE POSSIBLE MOVES."
  109. 700 B$="KING":GOSUB2
  110. 710 PRINT" THE KING IS THE MOST IMPORTANT PIECE ONTHE BOARD."
  111. 715 PRINT"
  112. 720 [153]"                             "
  113. 725 [153]" THE KING MAY NEVER BE       (null)TAB((null)    "
  114. 730 [153]"CAPTURED.  THIS IS THE     (null)TAB((null) (null)TAB((null)  "
  115. 735 [153]"IDEA OF THE GAME.  IF    (null)TAB((null)T(null)TAB((null)T(null)TAB((null)"
  116. 737 [153]"IT CAN BE TAKEN ON THE   (null) (null)TAB((null)T(null)TAB((null) (null)"
  117. 738 [153]"NEXT MOVE, IT MUST BE    (null)TAB((null)T(null)TAB((null)T(null)TAB((null)"
  118. 740 [153]"PROTECTED. MOVE IT AWAY, (null)T(null)TAB((null)F(null)TAB((null)T(null)"
  119. 745 [153]"BLOCK THE ATTACK WITH     TAB((null)T(null)TAB((null)T(null)TAB( "
  120. 750 [153]"ANOTHER PIECE, OR TAKE THE  TAB((null)T(null)TAB(   "
  121. 755 [153]"ATTACKER.                     TAB(     "
  122. 760 [153]" THE KING MAY MOVE IN THE SAME MANER    AS THE QUEEN BUT ONLY ";
  123. 770 [153]"ONE HEXAGON AT    A TIME."
  124. 800 B$[178]"GAME PLAY":[141]2
  125. 810 [153]" MOVES ARE DONE BY EITHER JOYSTICK, IN  EITHER PORT, OR BY KEYBOARD"
  126. 820 [153]" ENTER MOVES ON KEYBOARD BY PRESSING    THE LETTERS OF THE HEXAGON";
  127. 830 [153]" YOU WISH TO  MOVE TO. ENTER FIRST THE 'ROW' VALUE,"
  128. 835 [153]"ACROSS THE BOTTOM."
  129. 840 [153]" THEN ENTER THE 'COLUMN' VALUE, DOWN THESIDE."
  130. 850 [153]" AS YOU ENTER THESE KEYS, YOU WILL SEE  THEM IN THE SMALL WINDOW AT";
  131. 855 [153]" THE UPPER   LEFT CORNER."
  132. 856 [153]" PRESS 'RETURN' TO SIGNAL THAT HEXAGON. SINCE YOU TELL WHICH HEXAGON";
  133. 860 [153]", YOU CAN   KEEP ENTERING LETTERS UNTILL THE CURSOR IS ON THE ";
  134. 865 [153]"CORRECT HEXAGON."
  135. 900 B$[178]"GAME PLAY CONT":[141]2
  136. 910 [153]" MOVES ENTERED WITH THE JOYSTICKS ARE   DONE SIMPLY. JOYSTICKS USE";
  137. 915 [153]" THE SIX      DIRECTIONS; UP,DOWN, AND THE FOUR       DIAGONALS."
  138. 920 [153]" THE FIRE/ACTION BUTTON HAS THE SAME    FUNCTION AS 'RETURN'."
  139. 930 [153]" IF TWO JOYSTICKS ARE PLUGGED IN, THE   JOYSTICK IN PORT 1 WILL ";
  140. 935 [153]"HAVE PRIORITY."
  141. 940 [153]" NOTE ALSO THAT IF A PAWN REACHES THE   OPPOSITE END OF THE BOARD";
  142. 945 [153]" AND IS        ENTITILED TO A PROMOTION, THIS VERSION  WILL ALWAYS ";
  143. 946 [153]"GIVE A QUEEN."
  144. 1000 B$[178]"SCREEN":[141]2
  145. 1010 [153]" THE SCREEN IN SET UP IN FOUR PARTS."
  146. 1012 [153]" THE MAIN PORTION CONTAINS";
  147. 1015 [153]" THE BOARD.   ALSO, IN THE LOWER RIGHT CORNER OF THIS PORTION, IS";
  148. 1016 [153]" THE INDICATOR FOR TWAITEST CWAITHECK. IF IT SHOWS A ^WAIT, THEN IT IS ON.
  149. 1020 PRINT" THE UPPER LEFT PORTION DISPLAYS THE    CURRENT CURSOR LOCATION."
  150. 1025 PRINT" AND, IF A PIECE IS 'PICKED UP', IT ALSOSHOWS WHICH PIECE IS UP."
  151. 1100 B$="SCREEN CONT":GOSUB2
  152. 1110 PRINT" THE UPPER RIGHT CORNER OF THE SCREEN   CONTAINS A WINDOW SHOWING";
  153. 1112 PRINT" THE PIECES,   FOR BOTH WHITE AND BLACK, AND THE NUMBEROF EACH";
  154. 1115 PRINT" PIECE REMAINING ON THE BOARD."
  155. 1120 PRINT" THE LAST SECTION IS TO THE LOWER RIGHT OF THE SCREEN."
  156. 1125 PRINT" IT IS A SCROLLING WINDOW SHOWING EACH  COMPLETED MOVE AS IT IS MADE."
  157. 1130 PRINT" IF A MOVE IS 'TAKEN BACK', THIS WILL BEUPDATED TO REFECT ANY CHANGES."
  158. 1140 PRINT" THIS WINDOW WILL ONLY DISPLAY THE LAST 9 MOVES BY EACH PLAYER."
  159. 1150 PRINT" ONCE THE OLDEST MOVE IS SCROLLED OFF   THE SCREEN, IT IS PERMAN";
  160. 1155 PRINT"ENTLY LOST."
  161. 1200 B$="MENU":GOSUB2
  162. 1210 PRINT" THE MENU CAN BE SEEN AT ANY TIME THE   GAME BOARD IS DISPLAYED BY";
  163. 1212 PRINT" PRESSING THE 'M' KEY."
  164. 1215 PRINT" IT WILL DISPLAY THE ACTIVE KEYS WHICH  WILL DO A FUNCTION."
  165. 1220 PRINT"TEST CHECK    THE 'T' KEY WILL TOGGLE                 WHETHER OR";
  166. 1222 PRINT" NOT THE PROGRAM              TESTS EACH KING FOR CHECK."
  167. 1230 PRINT"RESTORE BOARD HITTING 'R' WILL RESET                  THE ";
  168. 1232 PRINT"PIECES TO THE STARTING              POSITIONS"
  169. 1300 B$="MENU CONT":GOSUB2
  170. 1310 PRINT"PRINTER       HITTING 'P' WILL START                  THE ";
  171. 1312 PRINT"OUTPUT OF THE MOVES,                AS THEY ARE";
  172. 1315 PRINT" SEEN ON THE                 SCREEN."
  173. 1320 PRINT"              THE OUTPUT STARTS AS                    OF ";
  174. 1322 PRINT"THE KEY PRESS AND                    ALL";
  175. 1325 PRINT" PREVIOUS MOVES ARE                  NOT PRINTED."
  176. 1330 PRINT"MENU          THE 'M' KEY WILL GIVE                   THIS";
  177. 1332 PRINT" LIST ON THE SCREEN.                THE GAME BO";
  178. 1335 PRINT"ARD IS NOT                   LOST."
  179. 1400 B$="MORE MENU":GOSUB2
  180. 1410 PRINT"SCREEN COLOR  THREE OF THE FUNCTION"
  181. 1420 PRINT"BORDER COLOR  KEYS WILL CYCLE THROUGH"
  182. 1430 PRINT"CURSOR COLOR  EACH OF THE SIXTEEN "
  183. 1440 PRINT"              COLORS.             "
  184. 1450 PRINT"LOAD          THE 'L' AND 'S' KEYS"
  185. 1455 PRINT"SAVE          WILL ALLOW YOU TO LOAD"
  186. 1460 PRINT"              OR SAVE A CURRENT GAME"
  187. 1465 PRINT"              TO THE DISK. YOU MAY"
  188. 1470 PRINT"              ALSO REQUEST A LIST"
  189. 1475 PRINT"              OF THE CURRENT GAMES ON"
  190. 1480 PRINT"              DISK."
  191. 1485 PRINT"EXIT          THE 'X' KEY WILL LEAVE"
  192. 1490 PRINT"              THE PROGRAM. IT IS"
  193. 1495 PRINT"              RECOMMENDED THAT THE"
  194. 1498 PRINT"              COMPUTER BE TURNED OFF"
  195. 1499 PRINT"              BEFORE USEING IT AGAIN."
  196. 1500 B$="YET TO COME":GOSUB2
  197. 1510 PRINT" FURTHER DEVELOPMENTS INCLUDE:::"
  198. 1520 PRINT"   MAN VS. MACHINE (ONE PLAYER)"
  199. 1530 PRINT"   A CLOCK TIMER FOR EACH MOVE"
  200. 1535 PRINT"   A MODEM ROUTINE SO GAMES CAN"
  201. 1537 PRINT"       BE PLAYED OVER THE PHONE"
  202. 1538 PRINT"       AND BY DIFFERENT COMPUTERS.
  203. 1540 [153]" NOTE THIS WILL ONLY BE WRITTEN IF I "
  204. 1550 [153]"      GET SOME SUPPORT. I WOULD LIKE"
  205. 1555 [153]"      A LETTER OR POSTCARD TELLING ME"
  206. 1560 [153]"      WHAT YOU WOULD LIKE TO SEE IN"
  207. 1565 [153]"      CHANGES AND NEW IDEAS."
  208. 1570 [153]"      FURTHER VERSIONS WILL DEPEND"
  209. 1575 [153]"      ON THE RESPONSE I RECIEVE."
  210. 2800 B$[178]"MISC":[141]2
  211. 2810 [153]"FOR THOSE FAMILIAR WITH SQUARE CHESS::    "
  212. 2820 [153]" THERE IS NO SUCH THING AS CASTLING      IN THIS VERSION OF THE GAME!
  213. 2825 PRINT" ALSO THERE IS NO 'EN PASSENT'!!"
  214. 2830 PRINT"AS YOU PLAY YOU WILL SEE THAT THESE     CASES DO NOT OCCUR IN ";
  215. 2835 PRINT"THIS GAME!"
  216. 2850 PRINT"PRESS RETURN[146] TO SEE AGAIN"
  217. 2860 PRINT"PRESS SPACE[146] TO LOAD"
  218. 2870 GETA$:IFA$=CHR$(13)THENRUN
  219. 2880 IFA$<>" "THEN2870
  220. 2990 PRINT"[147]P[207]44,12:P[207]43,1:NEW:P[207]198,1:P[207]631,131"
  221. 3000 B$="02"
  222. 3010 PRINT"    "+CHR$(34)+B$+CHR$(34)+",8"
  223. 3020 POKE198,2:POKE631,13:POKE632,131
  224.